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RIPRODUZIONE 0 TRADUZIONE 
DEGLI ARTICOLI E DEI 
PROGRAMMI PUBBLICATI SONO 
RISERVATI 


Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C 64 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata aU’interno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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Taskmaster 


11 / 

Creative Sparks Pre^ent 

TASKn^lSTER 

Cc'pyrigiit 

TWOKH E Eli « Miputer software 
mritten bj Steve J4iggi»s 
prese fire button to («ntinue 

Erevic>«s OGOGOO Wi GGGGGO 


Immaginate di essere dei 
prodi cavalieri medioevali 
proiettati in una lontana 
terra futura; immaginate 
inoltre di esservi innamora- 
ti di una bellissima princi- 
pessa e di avere come “gene- 
ro" un re che non vi ritiene 
all’altezza del suo rango, e 
che vi sottopone a sette ter- 
ribili prove per valutare il 
vostro coraggio e la vostra 
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resistenza. Ecco ciò che vi 
attende caricando sul vostro 
Commodore 64 Taskmaster. 
un gioco unico del suo gene- 
re, sia per spettacolarità 
che per grafica. 

Scopo del gioco è riuscire a 
superare sette durissime 
prove per riuscire ad avere 
la mano della principessa 
Kelly dal padre Otto. 


Il gioco 

La sola arma disponibile per 
il cavaliere è una pistola la- 
ser da usare sempre a colpo 
sicuro, poiché ogni colpo 
andato a vuoto comporta 
una riduzione del bonus che 
viene assegnato ogni volta 
che si completa uno schema. 
Dalla schermata iniziale vi 
troverete nella Valley of thè 





zombies, in una radura po- vrete aspettare il tramonto 
sta dietro a un castello; do- poiché per superare lo sche- 


ma bisogna passare una 
notte nella radura in com- 
pagnia dei morti viventi, 
che vi inseguiranno senza 
pace finché non vi avranno 
raggiunto. È peraltro impos- 
sibile evitarli perché per 
raggiungervi essi seguono 
sempre là strada più breve, 
quindi per difendervi potete 
solo sparargli. E distrugger- 
li per poter sopravvivere. Il 
secondo schema, thè Wizard 
of Dabbit Wood, è ambienta- 
to in una foresta incantata, 
abitata da un mago crudele 
che cercherà di lanciarvi i 
suoi incantesimi, i quali do- 
vranno essere colpiti insie- 
me al mago. Attenzione per- 
6 



ché il mago appare solo po- 
chi secondi per volta, quindi 
più veloci sarete meno tem- 
po spenderete in questo 
schema. 

Del terzo schermo, thè Vam- 
pire mountain, vi troverete 
davanti all'ingresso di una 
tenebrosa caverna ai piedi 
di una montagna mistica; 
troverete inoltre per terra 
delle strane statuette nere, 
il vostro compito è di racco- 
glierle (è necessario sola- 
mente passarci sopra). At- 
tenzione comunque, perché 
nell’opera sarete “disturba- 
ti' da schiere di pipistrelli- 
6 





vampiri liberati dal mago 
della foresta assetato di ven- 
detta. La quarta prova, The 
Tempie of Demons è forse la 
più ardua da superare, vi 
troverete infatti da affronta- 
re, in un sacro tempio fanta- 
sma schiere di sacerdoti pa- 
gani fedeli legati al luogo da 
un giuramento sovrannatu- 
rale che li rende ostili a qua- 
lunque visitatore. Oltre ad 
attaccarvi disporranno inol- 
tre di micidiali pistole laser, 
quindi dovrete essere velo- 
cissimi ad abbatterli, prima 
che lo facciano loro. Rulns 
of Tigorth è il nome del 
quinto schermo, il luogo di 
battaglia è ovviamente una 
antica necropoli maledetta; 
il luogo è infatti sotto l’in- 
flusso .della maledizione dì 
uno stregone che ha popola- 
to la città di spiriti assetati 
di sangue, che dovrete ov- 
vi^ente abbattere uno a 
uno. Il penultimo schermo, 
The Northern Barbarians, vi 
porterà (con l'immaginazio- 
ne) nel vecchio Far West, 
dovrete misurarvi con degli 
zombie-cowboys che useran- 
no il vostro corpo come ber- 
saglio; dovrete inoltre rac- 
cogliere dei piccoli teschi 
sparsi sul terreno. Quando 
sarete arrivati a questo pun- 
to potrete dire di aver com- 
piuto una grande impresa, 
quindi a voi il piacere di sco- 
prire il settimo e cqji^lusivo 
schermo, The Castle of Bir- 
dmen, e a scoprire se siete 
meritevoli di sposare la 
principessa Kelly. Mi racco- 
mando mettetecela tutta; ne 
va del vostro onore! I! 


s«r. ojiS7<;o 
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Comandi 

Per questo gioco non è pre- 
visto l'uso della tastiera, 
l’usc) del Joystick in porta 2 
si rivela quindi indispensa- 
bile. Il joystick vi permette 
di muovervi nelle quattro di- 
rezioni ed anche in diagona- 
le. Il comando RESTORE vi 
permette inoltre di abbando- 
nare la partita in corso, 
mentre per iniziare basta 
premere il “Tire button" del 
joystick. 



Guida alVin put C 64 


TABELLA DI CONVERSIONE 


IHOMEI HOME 

ICLR) PULIZIA SCHERMO 

ICUfi.SU) CURSORE IN ALTO 

(CUR.CIU) CURSORE IN BASSO 

(CUR.DES) CURSORE A DESTRA 

{CUR.SINi CURSORE A SINISTRA 

ISPC) SPAZIO 

{RVS ONl REVERSE ON 

(RVS OFF) REVERSE OFF 

(FLASH ON 1 FLASH ON 

(FLASH OFF} FLASH OFF 

(.INSTI INSERT 

(BLACK) COL. NERO (CTRL*1) 

(WHITE) COL. BIANCO (CTRL*2) 

(RED) COL. ROSSO (CTRL»3) 

(CYAN) COL. CIANO (CTRL-A) 

(PURPLE) COL. PORPORA (CTRL*5) 

(GREEN) COL. VERDE {CTRL*6) 

(BLUE) COL. BLU (CTRL*7) 

(TELLOW) COL. Gl ALLO' ( CT RL *8 ) 

(GRANGE) COL. ARANCIO (CBM»1) 

(BROWN) COL. MARRONE (CBM*2) 

(YL-GREEN) '.COL. GIALLO-VERDE (CBM*3) 

(■PINK) COL. ROSA (CBM*4) 

(BL-GRN) COL. BLU-VERDE (CBM*5) 

(LT.BLUE) COL. BLU CHIARO (CBM»6) 

(D.BLUE) COL. BLU SCURO (CBM*7) 

(LT. GREEN) COL. VERDE CHIARO (CBM*8) 


Norme perla 
battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Sliift" e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” 0 “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <• Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 
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Firequest 


Commodoriani che avete 
sempre sognato di tornare 
Indietro nel tempo e di ritro- 
varvi cosi nell’età della pie- 
tra cimentandovi in una ve- 
ra e propria lotta per la so- 
pravvivenza FIREQUEST è il 
gioco che fa per voi!!! Il pro- 
tagonista di qusto videoga- 
me mozzafiato è UGH, un 
simpaticissimo uomo primi- 
tivo che ha un grosso com- 
pito da assolvere; accendere 
il fuoco nella sua piccola 
grotta. Naturalmente in 
questo non vi sarebbe nulla 
di complicato se il nostro 
simpatico personaggio non 
dovesse sudare sette cami- 
cie (tanti infatti sono i qua- 
dri del gioco che si dovran- 
no superare per portare a 
termine la missione) imbat- 
tendosi in mille difficoltà 
che di livello in livello di- 
venteranno sempre più ar- 
due e pericolose. Ragni, 
vampiri, scorpioni, serpen- 
ti, pantere (tutto in formato 
IO 


gigante), eruzioni vulcani- 
che, fiumi in piena, incendi, 
precipizi abissali, monti im- 
pervi, gallerie sotterranee, 
colate di lava incandescente 







te diverse schermate (una 
più stupenda dell'altra) che 
di volta In volta presente- 
ranno avversari sempre più 
agguerriti e pericoli sempre 
maggiori. Ogni schermo 
inoltre presenta un compito 
diverso da assolvere: ad 
esempio allontanarsi mo- 
mentaneamente alla grotta, 
raccogliere la leg|^a e acca- 
tastarla, prendere il fuoco 
con una torcia dai vari falò 
appositamente sistemati in 
alcuni schermi del gioco, ri- 
tornare alla grotta con la 
torcia, accendere la legna, e 
11 


e fulmini impazziti; queste 
sono solo alcune delle diffi- 
coltà che gradualmente do- 
vrai affrontare e superare 
guidando con mano ferma e 
con intrepido coraggio il 
piccolo UGH. Da solo egli in- 
fatti non sarebbe in grado di 
farcela, quindi è necessario 
il tuo aiuto (e di conseguen- 
za tutta la tua bravura) per- 
ché il nostro simpatico ami- 
co possa finalmente riscal- 
dare la sua grotta. Ma tor- 
niamo al gioco vero e pro- 
prio: come già accennato, 
questo si articola in ben set- 



cosi via. Ma ciò che importa 
è che bisogna portare a ter- 
mine la missione (essa si 
conclude con il settimo 
schermo) conservando al- 
meno una delle quattro vite 
che UGH ha a disposizione 
e, se possibile, cercando di 
totalizzare il maggior nume- 
ro di punti realizzando cosi 
un “record" sempre mi- 
gliore. 


Comandi e 
opzioni 

11 gioco consente l’uso del 
Joystick in porta 2 oppure, 
nel caso ne foste sprovvisti, 
potete anche usare la tastie- 
ra del vostro Commodore 
64. Per iniziare il gioco vi 
sono due modi: 

1) Premendo il tasto “flre" 
del joystick 

2) Oppure premendo il ta- 
sto “PI" se preferite usare la 
tastiera. 

Inoltre, se durante il gioco 
la musica di sottofondo do- 
vesse disturbarvi, potrete 
sempre disattivarla pre- 
mendo il tasto “F3". Un ulti- 
mo avviso: se durante la 

12 








schermata di presentazione 
non intervenite, assisterete 
in seguito ad una dimostra- 
zione esemplare delle possi- 
bilità di questo fantastico 
gioco con la visione di tutti 
gli schermi da supej^are. 

Tratto da 
Video Basic n" 7 
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Supertank 
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In questo magnifico gioco 
per il tuo C64 lo scopo è di 
distruggere tutti i tank av- 
versari che sono penetrati 
nel tuo territorio. Il tuo aiu- 
to è quindi indispensabile 
per cacciare gli invasori che 
avanzano senza scrupoli se- 
minando distruzione e mor- 
te pur di allargare i loro do- 
mini. Tutto ha Inizio duran- 
te un caldo pomeriggio esti- 
14 







5 PRINT”(CLR)" 

15 PRINT:PRINT:PRINT:PRINT:PRINT:PR1NT:P 
RINT:PRINT:PRINT:PRINT:PRINTTAB{12)"( 
YELLOW)J.S.C . PRESENTA" 

17 PRINT 

20 PRINTTAB{15)"(YELL0M)SUPERTANK" 

113 C0SUB800 

«8 S-5H272:F0RL-ST0S*21I:P0KEL.0:NEXT 
50 PRINT"(CLR)(HOMEnWHITE)":POKEV*32.1 : 

P0KEV»33,0:PRINTTAB( 120) 

52 COSUB1000 

60 PRINT" ICLRJI HOME) I WHITE ) " : PRINTTAB( 8ll 
)"CARATTERISTICHE dei carri ARMATI" 

62 PRINTTAB(I19)"1RVS 0N){CREEN){2 SPClAL 
TA(2 SPCllRVS 0FF){3 SPCKRVS ONUYEL 
LOW) MEDIA (RVS 0FF}{2 SPC)(RVS ON ) { W 
HITE) BASSA IRVS OFF)" 

6ii PRINTTAB(10)"(CREEN)(RVS 0N)1.TIGER{R 
VS OFF){it SPC)RES.(6 SPC ) ) YELLOW ) FUOC 
OIH SPC) (WHITE) VEL." 

66 PRINTTAB(HO)" (YELLOW) (RVS ON)2.T-3‘l(R 
VS 0FF)(5 SPC) (CREEN)VEL. (6 SPC)(YELL 
0W)RES.(5 SPC) (HHITE)FUOCO" 

68 PRINTTAB(I10)"(WHITE)(RVS 0N)3.SHERMAN 
(RVS 0FF)(2 SPC) (CREEN)FU0C0(5 SPC)(Y 
ELL0W)VEL.(5 SPC ) ( WH ITE ) RES . ":PRINTT 
ABC 1 20) 

70 PRINT:INPUT"(H0ME)(15 CUR.CIU)(6 SPC) 
QUALE TANK DES I DERATE" ; T A 
72 IFTA<10RTA>3THEN80 

78 PRINT"(H CUR.CIU)(8 SPOPRONTO ALLA B 
ATTAGLIA! ":FORQ-1TO5O0STEP.5:NEXT:C0T 
085 

80 PRINT"(H0ME) ( 15 CUR.GIU)(9 SPONON E’ 
POSSIBILE! ! (K SPC ) " : G0SUB1 300 : GOT070 
85 V>532it8:G0SUB1 100 

90 PRINT"(CLR)(H0ME)";P0KEV*32.0:P0KEV*3 


vo: mentre sei comodamente 
seduto sulla poltrona di ca- 
sa tua, d'un tratto senti al- 
cuni boati in lontananza ed 
alcuni secondi dopo il telefo- 
no che ti collega con il Co- 
mando dello Stato Maggiore 
Americano inizia a squilla- 
re. Tu sai già di cosa si trat- 
ta, e dopo aver risposto vie- 
ni messo al corrente dei fat- 
ti: uno stato nemico ha ap- 
profittato di un momento in 
cui tutti i migliori piloti del 
Corpo Speciale non erano 
reperibili e cosi ha sferrato 
un terribile attacco. 

Ma gli invasori non sapeva- 
no che tu invece avresti su- 
bito potuto contrattaccarli 
perchè in quel momento for- 
tunatamente ti troovavi vi- 
cino al Centro-Base del Cor- 
po Speciale. Infatti vieni 
convocato con urgenza e do- 
po aluni brevi prepatativi 
15 


sei finalmente pronto per 
scendere in campo e per in- 
fliggere ai nemici una dura 
sconfitta costringendoli co- 
si alla ritirata. Ma attento, 
non cantar vittoria: solo du- 
rante la battaglia potrai di- 
mostrare tutto il tuo valore 
che nel caso verrà compen- 
èato con un grado militare 
elevato. Per sferrare il tuo 
attacco hai tre diversi car- 
riarmati a disposizione, se- 
condo questa tabella: 


Alta 

1. Tiger Res. 

2. T-34 Vel. 


Media Bassa 
Fuoco Vel. 
Res. Fuoco 


3.1 

92 PRINTTAB(7)"1RVS 0N)(CRAY2HSH \)(CBM 
•HRVS OFF)(A SPOIRVS ON)(SH \)(CBM 
•)(RVS OFF)(7 SPCKRVS ON ) ( SH \){CBM 
•HRVS OFF){<t SPCKRVS ONKSH \KCBM 
•KRVS OFFKH SPCKRVS ONKBLACK)PUN 
TI" 

91* PRINT"{2 SPCKRVS ONKCRAY2KSH \KCB 
M «JfRVS OFFK2 SPCKRVS ONKSH \K2 
SPCKRVS OFFK3 SPCKRVS ONKSH \K2 
SPCKCBM «KRVS OFFK5 SPCKRVS ONKS 
H \K2 SPCKCBM «KRVS OFFK2 SPCKRV 
S ONKSH \K2 SPCKCBM «KRVS 0FFK2 
SPCKBLACK)" ìSC 

96 PRINT" {RVS 0NKGRAY2KSH \K2 SPCKC 
BM «KSH \K3 SPCKCBM «KRVS OFFK2 
SPCKRVS ONKU SPCKCBM •){RVS 0FFK2 
SPCKRVS ONKSH \K5 SPCKRVS OFF) { 
RVS ONKSH \KA SPCKCBM «KRVS OFF)l 
2 SPCKRVS ONKBLACK)RES. 

98 PRINT"{RVS 0NKCRAT2KSH SK9 SPCKCB 
M «KSH \){5 SPCKCBM ‘KSH \K6 SPC) 
(SH \){6 SPCKCBM «IIRVS OFFllBLACK)" 
: AR 

100 F0RQ-1T017:PR1NT"(RVS ONKCREENK39 
CBM ♦}":NEXT 

110 PRINT"iRVS 0NKCRAY2KCBM QK9 SH C) 




{CBM WUCUR.DES) (SH \)(13 SPC)(CBM • 
MCUR.DESKCBM Q){9 SH C){CBM W)" 
n2 PRINT"IRVS ON) {GRAY2) (CBM Q)(9 SH C) 
ICBM W)(17 SPCltCBM Q)(9 SH C){CBM W 
J" 

im COSUBJI20 

120 CB-1 :TI$-"000000" 

150 P0KEV*21 ,15:P0KE20U0,13:P’0KEV*39,0:P 
OKEV, 170:P0KEV*1 . 1 50 : Y • 1 70 : X- 1 50 : SH» 
0 

151 P0KE20*I2 , 1 93 : POKEV + Hl , 1 1 :RF-0:UT-1 10 
:POKEV*»t2,0:P0KE20i43.195 

152 POKE201I1 ,11(:P0KEV*»<0,0!P0KEV*2,X1 : PO 
KEV3.Y1 

180 S»NOTPEEK( 56321 ) AND 1 5 : U-SAND1 ;D-SAND 
2:L»SAND4:R»SAND8; Y1»0:X1»0 
182 P0KEV*23,0:P0KEV*29,0 
185 IFUTHENX-X-M1 :IFX<1 10THENX-X+M1 
187 IFDTHENX-X + M1 : 1 FX > 1 80THENX-X-M 1 
189 IFRTHENY-Y*M1 : I F Y >2 A5THEN Y- Y-M 1 
191 IFLTHENY-Y-M1 : I F Y< 90THEN Y- Y*M 1 
200 P0KEV,Y:P0KEV»1 .X 

210 J-N0TPECK(56321 ) AND 1 6 : I FJ • 1 6THCNC0SU 
B2tt5 

230 BO.BO*.5iCOSUB310:COTOl8O 
245 SH*SH*1 :Xl-X:MR-Y:HH-Y/2iC0SUB400 
24 7 FORDD.DDTOHHSTEP5:POKEV2,DD:POKEV3 
,X1 :COSUB330:NEXT 

250 POKE2041 , 1 5 : F0RDD-DDT0MRSTEP5 : POKEV* 
2,DD:P0KEV»3.XI : C0SUB330 : NEXT 


3. Sher- 

man Fuoco Vel. Res. 

(nella tabella “vel." sta per 
velocità di mira e “res" sta 
per resistenza ai colpi av- 
versari che dovrai accurata- 
mente evitare) 

La resistenza ai colpi è di 5 
proiettili se è alta; di 3 
proiettili, se è media e di un 
solo proiettile se ò bassa. 


Controllo del 
Tank 

Ogni carroarmato nemico si 
17 


muove sullo schermo da si- 
nistra a destra. 

Utilizzando il joystick (in 
porta due) per muovere il 
mirino del proprio carro ar- 
mato è possibile mirare e 
cercare di colpire il tank av- 
versario; premendo il pul- 
sante di fuoco si vedrà vola- 
re la bomba, che partirà dal- 
la sinistra dello schermo fi- 
no ad arrivare nel centro del 
mirino. 

Naturalmente, mentre essa 
compie la sua parabola il 
tank nemico tenta di fuggi- 
re, aumentando anche la ve- 


IF( PEEK( V*3O)AND4)>0THENIF(PEEK( V*30 
)AND4)>OTHENGOSUB253 

X1.0:DD-0:Y1 -0:P0KEV»2,X1 :POKEV+3,MR 

:POKE2041 ,m:RETURN 

P0KE2041 . 1 92:P0KEV*23.2: POKEV»29,2 

POKEV>3,X1-10:POKEV+2,DD-1 2:00508410 

:GOSUB495 

FORRE.1TO500:NEXT:POKEV*23,0:POKEV*2 

9,0 

XI -0:00-0: Y1-0:P0KEV*2,X1 :P0KEV + 3.MR 
:P0KE2041 . 1 4:RETURN 
RF-RF*5: IFRF>21 5THEN350 
POKEV*4,RF:POKEV*5,UT:RETURN 
RF-RF*1.8:IFRF>21 5THENRF-0 
IFRF-0THEN3'10 

POKEV+4,RF:POKEV+5,UT:RETURN 
RF-0:UT-1 10:RS-INT(RND(0)»60) :UT-UT+ 
RS:GOTO330 

FI -RF:F2-UT:POKE20 42,1 94:.POKEV + 6,F1 : 
POKEV+7,F2:GOSUB400 

F0RQ=F2TO150STEP.4:P0KEV+7,Q:NEXT:P0 
KEV+29,8:P0KEV+23,8:P0KEV+6,F1-12 
F2=150:FORQ-F2T0230STEP.6:POKEV*7 ,0: 
NEXT:GOSUB410 

POlCEV+6 ,0:POKEV*7,0:P0KEV+4,0:POKEV* 

5,0:RF=0:POKEV+23,0:POKEV+29,0 

P0KE2042, 193:0010499 

S-54272:F0RL>ST0S+24:P0KEL,0:NEXT:P0 

KES+5,9:P0KES+6,16:P0KES*24,15 

POKES*4,129:POKES*1 . 3*1 : POKES . 75 : RETO 

RN 

S-54272:F0RL-ST0S+24 :P0KEL,0:NEXT: PO 
KES+5,11 :P0KES+6.16:P0KES+24,15 
P0KES*4, 1 29:P0KES+1 , 54 : POKES , 1 1 1 :RET 
URN 

S-54272:FORL-STOS+24:POKEL,0:NEXT:PO 
KES + 5, 1 1 :P0KES-6,56:P0KBS + 24\ 15 
POKES*4,129:POKES*1 ,51 : POKES , 97 : R ETU 
RN 

SC-SC*10:CB-0 :RN-INT(RN0(0)»1 5 ) :CB-C 

B*RN:G0T0500 

AR-AR-1 

V-53248:PRIMT"{H0ME)":P0KEV+32,0:P0K 

EV*33,CB 

RF.0:UT-1 10:RS-INT(RN0(0)«60 ) :UT-UT* 
RS:RF-RF+1 .5: 

PRINTTAB(7)" IRVS ON ) i GR A Y 2 ) { SH \){CB 
M »){RVS 0FF)14 SPOIRVS ONllSH \1{C 
BM »){RVS 0FF){7 SPCKRVS ON)(SH \}1 
CBM «HRVS 0FFI{4 SPOCRVS 0N}{SH \) 
{CBM »)(RVS 0FF}{4 SPOIRVS 0N){BLAC 
K)PUNTI" 

PRINT"12 SPOIRVS ON} IGRAY2) ISH \)|C 
BM »)|RVS 0FF1I2 SPOIRVS 0N)|SH \)| 
2 SPOIRVS 0FF)|3 SPOIRVS ONllSH \) 
12 SPOICBM »}|RVS 0FF1I5 SPOIRVS 0 
NIISH \)|2 SPOICBM »)|RVS 0FF)|2 SP 


251 

252 

253 

254 

258 

260 

310 

315 

330 

333 

335 

340 

350 

355 

360 

390 

391 

400 

405 

410 

415 

420 

425 

495 

499 

500 

501 

502 

504 
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CKRVS ON}(SH MU SPOICBM «HRVS 0 
fF){2 SPCHBLACK)";SC 

506 PRINT" {RVS 0Hl{GRAY2nSH \)(2 SPC H 
CBM «KSH \){3 SPC){CBM • ) { RVS 0FF)| 
2 SPOiRVS 0N)(A SPOICBM •HRVS OFF 
112 SPCKRVS 0lf)(SH \)|5 SPCURVS OF 
Fi {RVS ONHSH M'I*» SPOICBM «HBYS 
0FFn2 SPOIRVS ON) (BUACKIRES. 

508 PRINT"{RVS ON ) ( OR A Y2 ) (SH \H9 SPOlC 
BM «llSH \)(5 SPOICBM «IISH \)|6 SP 
OISH \H6 SPOICBM «IIRVS OFFIIBLAC 
K)":AR 

509 IFAR-0THEN5'«9 

510 RETURN 

5‘)9 LL-18:BL-12:BB-15 

550 PRINT" I HOME)" : POKE V ♦ 32 , 0 : POKE V ♦ 3 3 . 1 

558 F0RQ-5T07:PRINTTAB(Q)"|BLACK)|SH M)" 
SPC(10)"|SH M)":NEXT 

560 PRINTTAB(7)"|BLACK)|SH N)"SPC(n)"|S 
H M)«SPC(9)"|SH N) ISH M)" 

561 PRINTTAB(6)" ISH N ) "SPC ( 1 3 ) " ISH M)"SP 
C(2)"|SH N)-SPC{2)"{SH M)" 

562 PRINTTAB(5)"|BLACK)|SH N ) "SPC ( 1 5 ) " I B 
LACKIISH MlISH N 1 "SPC ( *1 ) " I SH M)" 

563 PR1NTTAB(5)" ISH M)"SPC(21 )" ISH Nl"SP 
C{3)"{SH NIISH Mi" 

56<t PRINTTAB(6)"|SH M)"SPC(6)"|SH NllSH 
M)"SPC(1 1 )"ISH N)"SPC(3)"ISH N)"SPC( 
2)" ISH M)« 

565 PRINTTAB(7)"|SH M I "SPC ( A ) " I SH N)"SPC 
(2)"|SH M)"SPC{10)"|SH M)"SPC(2)"|SH 

N)"SPC(<I)"|SH M)" 

566 PRINTTAB(8)" ISH M ) "SPC ( 2 ) " ISH N)"SPC 
(<()"|SH M)"SPC(10)"|SH MlISH N)"SPC{ 
61" ISH MI" 

567 PRINTTAB{9)" ISH MlISH N 1 "SPC ( 6 ) " | SH 
M)"SPC(17)"{SH Ni" 

568 PRINTTAB(18)"1SH M 1 "SPC ( 1 5 ) " { SH Ni": 
FORLB-1T06:PRINTTAB(LO"|SH N)"SPC{1 
‘l)"|SH N)":LL-LL-1 :NEXT 

570 F0RC)-1Tq5:PRINTTAB(BL)"lSH N)"SPC(BB 
)"|SH Ml":BL-BL-l :BB.BB*2:NEXT 

580 RESTORE:POKEV*23,O:POKEV»29.0:POKEV« 
21 ,0:G0SUB420:F0RQ-1T0500STEP.1 :NEXT 

585 S-54272:FORL-STOS*24:POKEL,0:NEXT:GO 
SUB1200 

588 V-53248:BO-BO/10:XX»INT(BO);SC-SC*XX 
: IFSOHSTHENHS-SC 

589 PR1NT"|H0ME1 1 CERI": POKEV 32,0: POKEV» 
33. 1 :P0KE53281 ,1 

590 PRINTTAB(85)" IRVS ON 1 1 BROHN ) B*0*N»U» 
S ":XX:SPC(3)"IRVS ONlBOMBE USATE":S 
H:PRINTTAB(45)"|RVS ONlTUOI"; 

591 PRINT" PUNTI";SC:SPC(3)"CRVS ONl» RE 
CORD • " :HS: PRINTTABC 49)" IRVS ONIGRA 
DO • {BLACK)";B$ 

592 PRINTTAB(43)"IRVS ON ) I BROWN ) SE I SOPR 


locità, e se non viene centra- 
to, procederà un po’ e poi 
scaricherà un colpo sul tuo 
carro armato americano, 11 
quale, perciò, perderà un 
grado di resistenza. 

Se riuscirai a colpire 11 tank 
nemico, esso esploderà, ac- 
quisterai 10 punti e cambie- 
rà il territorio di gioco. 


Punteggi finali 
e gradi 

Al termine della partltà ver- 
rà mostrato 11 grado rag- 




19 


giunto, che viene assegnato 
a seconda del punteggio. 

Se non si totalizzerà alcun 
punteggio, si verrà banditi 
come una “burba”. Ma non si 
deve disperare, perché sarà 
possibile ritentare. Lo sche- 
ma dei punteggi e dei relati- 
vi gradi è il seguente: 


-Punti- 

-Grado- 

0 

Burba 

0-51 

Soldato 

51-101 

Caporale 

101-201 

Sergente 

201-401 

Tenente 

401-601 

Capitano 
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AVVISSUTO PER: ":TI$ 

593 PRINTTAB(90 )" {RVS ON}CIOCHI ANCORA? 
(S/N)" 

595 CETC$:IFC$.""THEN595 

596 SC.O:B$."" :IFC$-"S"THEN599 

597 IFC$-"N"THENEND 

598 C$-"":G0T0595 

599 SH-0:SC-0:BO>0:XX=0:POKEV*32. 1 :POKEV 
♦33,0.-COTO60 

800 S-5'(27 2:F0RL.ST0S+2H:P0KEL,0:NEXT:P0 
KES + 5.9:POKES + 6,0:POKES + 2‘t,15 

801 READHF.LF.DR: IFHF--1THENRETURN 

804 P0KES*1 .HF:P0KES.LF:P0KES+4,33:F0RT-. 
1T0DR :NEXT :P0KES+4 , 32:COT0801 

810 DAT A 1 8, 209, 1024, 15, 2 10, 5 1 2, 1 8, 209, 51 

2.16.195.1024.14.24.512.11.48.512 

81 1 DAT A 18, 209, 200, 16, 195, 200, 15, 2 10, 200 
,14,24,200,15,210,512,22,96,512 

812 DAT A 16, 195, 102 4, 1 1 ,48,1024,15,210,51 

2.14.24.200.12.143.200.11 .48.200 

813 DAT A 10, 1 4 3, 200, 1 1 ,48,200,1 2,1 43,200, 

11.48.512.16.195.512.14.239.512 

814 DATA 1 1 ,48,512,1 5.210,200,1 5,210,200, 

14.24.200.12.143.200.11 .48.200 

815 DAT A 10, 1 4 3, 200, 11 ,48.200,1 2,1 43.200, 

11.48.512.16.195.1024.22.96.512 

816 DATA 1 8, 209, 1024, 15, 2 1 0, 5 1 2, 18, 20 9, 51 

2.16.195.1024.14.24.512.11.48.512 

817 DAT A 1 8, 20 9, 200, 1 6. 1 95, 200, 15, 2 10, 200 
.14.24,200,15,210,512,22,96,512 

818 DAT A 16, 1 95. 1 02 4. 1 1 ,48,1 02 4,15,210,51 

2.14.24.200.12.143.200.11 .48.200 

819 DATA10. 1 43.200, 1 1 ,48,200,1 2,1 43.200, 
11 , 48, 512, 16, 1 95, 51 2, 14, 2 39. 512 

820 DATA 11 ,48,512,1 5,21 0,200,15,21 0,200, 

14.24.200.12.143.200.11 .48.200 

821 DATA10, 143,200, 11 ,48.200,12.143,200, 
11,48,512,11 ,48,1024,-1 ,0,0 

900 DAT A255, 255, 255, 128, 2 4 ,1 ,128,2 4,1,12 
8,24,1,128.24,1,128,24,1,128,24,1 
905 DAT A 128, 2 4 , 1 , 1 28,36 . 1 , 1 28,66.1 ,255,1 
29,255,128,66,1,128,36,1,128,24,1,12 
8 

910 DAT A 2 4,1 ,1 28,24,1,128,24,1,128,24,1, 
128,24,1,128,24,1 ,255,255,255 
915 DATAO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 
0,0,0,0,0,31 ,254,0,49,255,192.96.255 
920 DAT A 2 40, 1 96 , 1 27 ,252 ,206 , 1 27,255,206 , 
127,255,196,127,252,96,255,240,49,25 
5 

925 DATA 192. 31. 254, 0,0, 0,0, 0.0, 0,0, 0,0,0 

, 0 , 0 , 0 , 0,0 

926 DATAO, 0,0, 0,0, 0,0, 0,0, 0.0, 0,0, 0,0,0, 
0,0, 0,0, 0,63, 2110, 0,103, 252, 0,1 95, 255 

927 DATAO, 2 1 9. 255, 1 92, 195, 255, 0,1 0 3, 252, 
0,63,240.0.0,0,0,0,0,0,0,0,0,0.0,0,0 

.0 

T5 


928 DATAO, 0.0, 0,0, 0,0,0 

930 DAT AO, 0, 2, B't. 128,11, 0,6 A. 2, 14 6. 128,16 
,0,16,10.73,32,64,0,4,17.140,96,64,0 

,4 

935 DATA 17, 17. 16, 64, 0,4, 8, 1 36. 1 36. 64, 0.4 
.17,17.16.32,0,8,8,136,128.16.0,16,2 
.72 

940 DATA128. 4, 0,64, 0.0.0 
946 DATAO. 0,0, 0,0, 0.0. 0,0, 0,0, 0,0, 64, 0,0 
,64,0.0,64,0,0,64,0,0.126.0.0.265,25 
5,0 

94 7 DATA265, 0,63. 255, 252, 127 .265,254,265 
,255,255,100,68,70,37.85,84.20.68.72 
960 DAT A 15, 256, 240, 0.0. 0,0, 0,0, 0,0,0 
965 DATAO, 2, 0,0, 2. 0.0. 2, 0.0 ,2,0,0.58,0.0 
,70,0,0,1 86,0,0,1 30,0,0,25 4,0,1 ,255, 
0 

960 DATA 3. 255, 128, 7, 255, 192, 0,1 24, 0,1 5,1 
87.224,8,186,32,15,187,224,8,130.32. 
15 

965 DATAI 31 .224,0.0,0,0,0,0.0.0,0 
970 DATAO. 0.0, 0.0, 0,0,0, 0,0, 0.0, 0.0, 0,0, 
0.0,0.60.0,0.126,0.0,255.0.0,255,0,0 
975 DAT A 126, 0,0, 60, 0,0, 0,0, 0.0. 0,0, 0,0,0 
, 0 , 0 , 0 . 0 , 0 . 0 , 0 , 0 , 0 . 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
1000 F0RA1-832T0894:READQ1 cPOKEAI ,Q1 :NEX 
■ T 

1010 F0RA2-896T0956:READQ2:P0KEA2,Q2:NEX 
T 

1015 FORA3-960T01022:READQ3!POKEA3.Q3:NE 
XT 

1020 F0RA4.1 2288T012350:READQ4:POKEA4,Q4 
:NEXT 

1025 F0RA5-12352T012414:READQ5:P0KEA5.Q5 
:NEXT 

1030 F0RA6-12416T012478:READQ6:P0KEA6,Q6 
:NEXT 

1035 FORA7-12480T012542:READQ7 :POKEA7,Q7 
:NEXT 


1090 RETURN 

1100 IFTA-1THENAR-5:IFTA-1THENM1-1 
1105 IFTA-2THENAR-3:IFTA-2THENM1-2 
Ilio IPTA-3THENAR-1 : I FT A -3THENM 1 • 3 
1150 RETURN 

1200 IFSC-0THENB$-''BURBA" 

1 201 IFSC>0ANDSC<51THENB$- "SOLDATO" 

1202 IFSC>52ANDSC<101THENB$-"CAP0RALE" 

1 204 IFSO101 ANDSC<201THENB$-"SEROENTE" 
1206 IFSO201 ANDSC< 401 THENBI- "TENENTE" 

1 208 IFSC>401ANDSC<601THENB»- "CAPITANO" 
1210 IFSO601 ANDSC <801 THENBS- "MAGGIORE" 
1212 IFSO801 ANDSC<1001THENB$-"» COLONNE 
LLO •" 

1214 IFSC>1001THENB$-"»« GENERALE »•" 
1216 RETURN 
1232 COT0500 

1300 FORI-1T01500:NEXT!RETURN 


601-801 Maggiore 

801-1001 Colonnello 
più di 1001 ‘Generale* 

Ed ora che sai tutto, prepa- 
rati a scendere in campo: il 
grado di generale ti aspet- 
ta!!! 

Tratto da “Super 
Commodore’ 

0^41985 
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Istogrammi 



UUOI FARNE 


Chissà quante volte avrete 
desiderato un programma 
che vi permetta di visualiz- 
zare graficamente in base ai 
valori numerici da voi impo- 
stati, l’andamento del vostro 
rendimento scolastico o il 
bilancio della vostra econo- 
mia (comprese naturalmen- 
te le mance settimanali)? 
Ebbene il programma ISTO- 
GRAMMI che vi stiamo pre- 
sentando risolverà tutti i 
vostri problemi. Infatti Isto- 
grammi è un ottimo pro- 
gramma Basic che grazie ad 
una grafica perfettamente 
realizzata consente di tra- 
22 





100 PRINT" (CLR )" : POKE5 3281 , 0 : POKE5 3280 . 6 

1 10 FORI -I230T01 261 : POKEI , 1 1 H : POKE I ♦ 5*1 27 
2,5:NEXT:REM ALTO 

120 FORI -I270T01790STEPitO: POKEI .107 :P0KE 
1*54272. 5:NEXT:REM SINISTRA 

1 30 FORI -1 301T01821STEP40: POKEI ,115: POKE 
1 *54272. 5:NEXT:HEM DESTRA 

140 FORI. 18 30TO1861 : POKEI .1 1 3 : POKE I *5427 
2.5:NEXT:HEM BASSO 

150 FORI • I 35 IT0 1 380: POKEI . 67 : POKE I *5427 2 
.5: NEXT 

160 FORI -147 ITO 1500: POKEI . 67 : POKE I ♦ 5427 2 
.5:NEXT 

170 FORI -1591T01 620: POKEI . 67 : POKE 1 *5427 2 


sformare i valori prescelti 
in barre equivalenti: queste 
barre multicolori sono dun- 
que confrontabili tra loro 
dall'andatura della curva se- 
gnata dalle loro altezze sarà 
interpretabile il significato 
del grafico che, a seconda 
dei casi e quindi dei valori 
assegnati, mostrerà diverse 
variazioni che potranno es- 
sere negative o positive. Per 
23 



la realizzazione di questo 
programma sono state uti- 
lizzate diverse tecniche gra- 
fiche che creano cosi at- 
traenti colonne tridimensio- 
nali la cui interpretazione è 
alla base del programma 
stesso. Si hanno cosi a di- 
sposizione ben sei colonne 
di diversa tonalità a cui si 
può assegnare, a scelta di 
chi usa il programma, un 
valore numerico da 0 a 15 
per impostare l’altezza della 
colonna voluta. Il computer 
disegnerà le barre di volta 
in volta e dopo la sesta bar- 
ra si potrà interpretare il si- 
gnificato del grafico. 

Tratto da “Paper Soft" 
n°16 


,5:NEXT 

1 80 FORI-171 1T01 TitOcPOKEI ,67: POKEI+StSVZ 
,5:NEXT: PRINT: PRINTiPBINT 
190 PRINT:PRINTSPC(l|)"15":PRINTSPC(ll)"U 
" : PRINTSPC()4 )"1 1" : PR I NTSPC ( H ) " 1 3" 

200 PRINTSPC(ll)"11":PRINTSPC(it)"10":PRIN 
TSPC(5)"9" : PRINTSPC(5)"8" 

210 PRINTSPC(5)"7":PRINTSPC(5)"6" :PRINTS 
PC(5)"5":PRINTSPC(5)"«'' 

220 PRINTSPC(5)"3" : PR I NTSPC ( 5 ) " 2" : PRINTS 
PC(5)"1":PRINTSPC(5)"0" 

230 PRINTTAB(9)"A"SPC(i()"B"SPC(l|)"C"SPC( 
A)"D"SPC(ll)"E"SPC(l()"F" 

240 IFZ$-"S"THEN310 

250 DATAA,B,C.D,E,F 

260 F0RI-1T06:READA$(I ) :NEXTI 

270 DATA7,6,4,13,8,14 

280 F0RI-1T06:READD(I):NEXTI 

290 DATA 1 792, 1 797, 1 802, 1 807, 1 81 2,1 81 . 

300 F0RI-1T06:READA(I ) :NEXTI 
310 C-54272:F0RJ-1T06 

320 F0RK-1971T01975:P0KEK,32:NEXTK:PRINT 
" {HOME)" :F0RL-1T022: PRINT:NEXTL 
330 PRINT"VALORE PER LA COLONNA ":A$(J)j 
- (0-15)"! 

340 INPUTA»! IFVAL(A$)-0THEN320 
350 AA.VAL( A$) : A A -INT ( A A+ . 5 ) : D-D ( J ) : X- A ( 
J) 

360 IFAA<OORAA>15THEN320 

370 A-A( J)-(AA» 40) *80:00308430 :NEXTJ 

380 PRINT" (HOME)" :F0RI-1T022: PRINT:NEXT: 

F0RI-1971T01983:P0KEI ,32:NEXT 
390 PRINT"VUOI FARNE UN ALTRO (S/N){3 SP 
O" 

400 GETZ$:IFZ$-""THEN400 
410 IFZ$-"S"THEN100 
420 END 

430 IFAA-1THEN530 
440 IFAA'OTHENRETURN 

450 POKEX ,l60:POKEX*1,231:P0KEX*2,105 
460 P0KEX*C,D:P0KE(X*1 ) *0 , D : POKE ( X*2 ) ♦ C , 
D: IFAA-2THEN490 

470 FORI-X-40TOASTEP-40:POKEI,160:POKEI* 
1 ,231 :P0KEI*2, 160 

480 P0KEI*C,D:P0KE(I*1)*C,D:P0KE(I*2)*C, 
D:NEXTI :C0T0510 

490 POKEA,247:POKEA*1 , 208 : POKEA* 2 , 1 05 
500 POKEA + C ,D: POKE(A* 1 ) + C , D : POKE ( A*2 ) *0 , 
D:G0T0530 

510 POKEA, 247 : POKEA* 1 , 208 : POKEA* 2 , 224 
520 P0KEA*C,D:P0KE(A*1 ) *C , D : POKE ( A* 2 ) *C , 
D 

5 30 POKEA- 40, 2 33: POKE A- 39. 160: POKE A- 38, 2 
06 

540 POKE(A-40)*C,D:POKE(A-39)*C,D:POKE(A 
-38)*C,D 
550 RETURN 
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Polimus 


[Il 

[ 2 ] 

[31 

[41 

[91 

[61 

[71 


THE ENTCRTAINER <JOPLIN> 
niNUETTO (BACH) 

PERELISA (BEETHOUCN) 


, 

REM ••• 






2 

REM • 






3 

REM • 

POLIMUS 





K 

REM • 






5 

REM • 






6 

REM » 






7 

REM • 






6 

REM • 






9 

REM ••• 






IO 

DATAO , 

15.00,30 

.111.1 

2,00 

.32, 

1.12,00,3 


0,60,6 

0,60,1 ,0 

.12,0. 

12,0 



20 

DATA12 

.50,2,07 

. 0 . 03 , 

0.51 

,2,52,2,03.0, 


36,0,60,0,36,0 

.00 




30 

DATAO, 

52.2.60, 

0 . 03,0 

.31 . 

0.52 

.2,36,0,0 


6,0,60 

,2,60,10 

.01 




00 

DATAO, 

29.0,06, 

0,05.0 

.0,2 

.28, 

0,72,2,60 


.3.70, 

2.65.2,03 




50 

DATAO, 

75.2,66, 

2.76,2 

.67. 

2.31 

,0,72,2,6 


«.2.70 

.2,65.2, 

00 




60 

DATAO, 

76,0,67, 

0.31 .0 

.71 . 

2,62 

. 2 , 70 , 0,6 


5.2,03 

.0,65.2, 

72 




70 

DATA12 

,60,12,36,0,00 

.0.00,0, 

50,2,07,0 


“POLIMUS" più che un pro- 
gramma, è una routine che 
potrete inserire in un qual- 
siasi vostro programma per 
“sonorizzarlo". 

Polimus legge da un blocco 
dati innanzitutto i valori da 
inserire nei registri di con- 
trollo e, successivamente, a 
due a due 1 valori dell’altez- 
za e durata della nota. 

Le linee da 0 a 1796 sono ri- 
servate ai dati, sia quelli per 
Polimus, sia quelli eventual- 
mente usati dal programma 
che ospita questa routine. 

Si è preferito usare la parte 
25 




[il 

THE ENTERTAINER <JOPLIN> 

[23 

MINUETTO <BACH> 

[33 

PERELISA (BEETHOVEN) 

[43 

INVENZIONE (BACH> 

[53 


[63 


[73 

FINE 

SCEGLI! 



iniziale del programma per 
i dati perché per poter ini- 
ziare a leggerli in un punto 
qualsiasi del blocco, viene 
usata una routine che simu- 
la l’istruzione BASIC man- 
cante “RESTORE num. di li- 
nea”, e visto che questa a 
sua volta è scritta in BASIC 
è soggetta alla ben nota len- 
tezza di questo linguaggio 
rispetto al LM. 

Questa routine, iniziando 
dalla linea più bassa, ricer- 
ca la linea il cui numero è 
caricato nella variabile ”IL"; 
quando la trova, carica il 
suo indirizzo nei puntatori 



.*'3.'*. 51 .2 

.52,2.43 




80 1 

»ATAn, 36,11 

.60.4.48.4 

.IO.» 

1.52,2 

.60,4,4 


3.11.31 ,11,52,2,118 




90 1 

[>ATA4 , 116 .n 

,60,2,60,1 

2.11 , 

,1.29. 

1,48.4. 

"S.'t.UO.J», 

28,4,69 




100 

DATA2, 39 , 

1.27.4,67, 

2.66, 

,2.38. 

4,26,4. 


69,2,72,2 

.18,4,38 




no 

DATA11,76, 

1.38,4.26, 

1.71, 

,2.72, 

2,18.4, 


42,11,69,2 

,74,12,47 




120 

DATA4, 43 , 

1.13.4.31 . 

1.15, 

,1,33, 

1,50.2, 


17.4,35.4 

.51 ,2,52 




130 

DATA2,43. 

1,36,4,60, 

1.18, 

,1,10, 

1.52,2, 


60,4.43,4 

.31 .1.52 




ino 

DATA2.48, 

1.13,4.60, 

2,60, 

,10,41 

.1.29.1 


,48.4.45. 

4,0.2,28 




150 

DATA4.72, 

2,64,2,74, 

2.65, 

,2.13. 

1.75.2. 


66.2,76,2 

.67,2.31 




1 60 

DATA4.72, 

2,64.2,74, 

2.65, 

,2,40. 

4.76.4, 


67.4,31,4 

.71 .2,62 




170 

DATA2.74, 

1.65,1.43, 

4.72, 

,12,64 

.12.36. 


4,40,4.43 

,4.72,2.60 



180 

DATA2,0,4 

.71,2.62,2 

.76 ,: 

1.64.2 

.36.4,7 



2, 2. 60. a, 7 ‘•,2,6 2 

190 DATA2,‘l3.‘t,76,‘*,64.U,3't.'l.72,2.60,2, 
7‘t.2,62,2.‘i3.‘'.72 

200 DATA2,60.2.76.2,6‘t.2,33.‘t,72,2.60,2, 
7 ‘•,2, 62, 2, ilS, 11, 76 

210 DATA‘t,6U,4,32,‘t,72,2,60.2,7't.2.62,2. 
•• •(.‘1,72, 2, 60, 2. 76 

220 DATA2,64,2,31 ,*l,72,2,60,2,7‘(.2,62.2, 
‘•3, *1,76, 4, 64, ‘•,31 

230 DAT A 4, 71 ,2.59,2,74.4.62,4,43,4,72,16 
,64,16,36,16,1.1 

240 DAT AO, 0,4 4,3 4,0, 0,4 4,1 8, 0,0, 0,0,1 6 , 1 

6.0. 23.62.8.43.16.0.384.55 

250 DAT A 4, 57, 4, 59, 4, 4 3, 4, 60, 4, 4 5, 4. 62, 8 , 

47.24.55.8.55.8.64.8.48.24.60.4.62.4 
.64 • 

260 DATA4, 66 ,4 ,67 .8 .47 .24 ,55 ,8 ,55 ,8 .60 ,8 
,45,24,62,4,60,4,59,4,57,4,59,8,43,2 
4 

270 DAT A 60, 4, 59, 4. 57. 4, 55, 4, 5 4, 8. 50, 8, 55 

,4,47,8,57,4,59.4,43,8,55 

280 DAT A 4, 57 .24,50,8,38,4,48,4,47,4,45,4 
,62,8,47,16,55,4,57,4,59 
290 DAT A4, 45 , 8, 60. 4, 62, 8, 43 , 8, 55, 8, 47 , 8, 

55.8.43.8.64.8.48.24.60.4 

300 DAT A 62, 4, 64, 4, 66, 4, 67 ,8,47,8,55,8,48 

,4,47,4,55,8,45,4,43.4,60 

310 DAT A 8, 45 , 16, 62, 4, 60, 4, 59, 4, 4 2, 8, 57, 4 

.59,8,43,16,60,4,59,4,57 

320 DAT A 4. 47 , 8, 55, 4, 57, 8. 4 8, 8. 59, 4, 50, 8 , 
57.4,55,4.38,8.54,4,55.24 
330 DATA43,8,38,8.31 . 8,1 ,1 
350 DAT A 0,0, 4 5 , 2 8, 0,0, 45 . 4 2, 0,0, 0,0, 16,1 

6.0. 50.0.8.0.12.0.372.64 

360 DAT A 2. 63, 2. 64, 2, 0,12, 63, 2, 64, 2, 59, 2. 
62,2,60,2 

37 0 DAT A 57, 4. 33. 2, 40, 2. 0,2, 45 . 2, 48, 2, 0,6 
,52,2,57,2,59,4 

380 DAT A 28, 2, 40, 2, 0,2, 4 4 , 2, 52 , 2. 0.6, 56, 2 
,59,2,60.4,33,2 

390 DATA40 ,2 ,0,2 , 45 .2 ,52 .2 ,0. 6 ,64 ,2 ,63,2 
,64,2,0,12,63,2 

400 DAT A 64, 2, 59. 2, 6 2. 2. 60, 2, 57 ,4,33.2,40 
,2,0,2,45,2,48,2 

410 DAT A 0,6, 52 , 2. 57 ,2.59,4,28,2,40,2,0,2 
.44,2,52,2,0,6 

4 20 D AT A 60, 2, 59, 2, 57, 4 , i3, 2, 40, 2, 0,4, 45 , 

2.0. 6.64.2.63.2 

430 DAT A 64, 2, 0,1 2, 6 3, 2. 6 4, 2, 59, 2, 6 2, 2, 60 
.2.57.4,33.2,40.2 

440 DAT AO, 2 , 45 .2 ,48 ,2,0,6,52,2,57,2,59,4 
,28,2,40,2,0,2 

450 DATA 44 , 2, 52 , 2, 0,6. 56 , 2, 59 , 2. 60, 4 . 33 . 

2.40.2.0. 2.45.2 

4 60 DATA52, 2, 0,6, 64, 2, 63, 2, 64. 2, 0,1 2, 63, 
2,64,2,59,2,62,2 

470 DATA60, 2, 57, 4 , 3 3, 2 . ‘•0,2. 0,2. 45 . 2. 48. 

2.0. 6.52.2.57 .2 


dei “DATA”, facendo in modo 
che i successivi dati letti 
inizino da quella riga. Più 
sono le linee che devon esse- 
re controllate, maggiore sa- 
rà il tempo impiegato da 
questa routine per svolgere 
il suo compito. Ovviamente, 
mettendo i dati dopo il pro- 
gramma, i tempi di ricerca 
salirebbero ad un livello 
inaccettabile. 

Questa routine è compieta- 
mente a disposizione, nel 
caso si volesse usarala, 
aH’interno del programma 
utente; basta caricare in IL 
il numero della linea in cui 
si vuole iniziare a leggere i 
dati, e richiamarla con un 
GOSUB 3300. 

Nelle linee 2000 e 2010 ven- 
gono calcolati valori HI e LO 
per ottenere tutte le note 
musicali, valori che vengo- 
no inseriti nel vettore “Q” a 
due dimensioni (una per HI 
e una per LO). Volendo, per 
esempio, ascoltare la 57° no- 
ta, basta inserire nei regi- 
stri HI e LO del generatore 
di suoni Q (57,0) per HI e Q 
(57,1) per LO. 

Sul manuale del 64, in ap- 
pendice, sono riportati i va- 
lori delle note e il loro nu- 
mero progressivo. 

Questi valori danno però 
delle note calanti, e perciò 
ho preferito ricalcolarli con 
il “La corista” a 440 Hz, in 
modo che il calcolatore pos- 
sa suonare anche con altri 
strumenti musicali. 

In queste due linee, per ogni 
nota viene calcolata la sua 
frequenza, dopodiché, usan- 
do la formula riportata pri- 
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ma si calcolano i valori HI e 
LO che vengono inseriti nel 
vettore Q. 

Si noti che per ottenere la 
radice dodicesima di due, vi- 
sto che manca la funzione 
diretta, si fa 2 1 (1/12). Vo- 
lendo modifìcare l'intona- 
zione delle note, si deve mo- 
dificare il valore 440 nella 
linea 2000. 

Per fare questi calcoli, ven- 
gono impiegati circa 8 se- 
condi; consiglio pertanto di 
mettere subito prima di que- 
ste linee un’eventuale inte- 
stazione, in modo da sfrutta- 
re questo tempo morto. 

Nella linea 2020 con un ci- 
clo viene caricato gradual- 
mente nel registro del volu- 
me (54296) il massimo va- 
lore, evitando cosi un fasti- 
dioso “clock" nell’altopar- 
lante. 

Nella linea 3000 Inizia la 
routine che trasforma i dati 
letti in musica. 

Nelle prime due linee vengo- 
no letti i primi 16 dati che 
contengono i valori da inse- 
rire nei registri ADSR e di 
controllo nel seguente or- 
dine: 

LP, HP, AT, SU (voce 1); 

LP, HP, AT, SU (voce 2); 

LP, HP, AT, SU (voce 3); 

WA, WB, WG, (forma d’onda 
delle tre voci); 

Tempo di esecuzione. 
Vengono poi letti due dati 
alla volta contenenti il nu- 
mero della nota e il suo valo- 
re, generalmente espresso 
in trentaduesimi. Mettendo 
al posto del numero della 
nota uno 0, si ottiene una 
pausa. Per concludere il bra 
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480 

DATA59.4,28. 

2.40,2 

.0,2 

.44,2 

.52.2 

.0.6 


.60,2.59,2,57,4 





M90 

DATA33.2,40, 

2.0.2, 

45.2 

.59,2 

.0.6, 

60 ,2 


,62,2,64,6.36.2 





500 

DATA43,2,48, 

2,55,2 

.0.6 

.65,2 

.64.2 

.62, 


6.31 .2,43.2. 

47,2 





510 

DATA53.2.0,6 

.64,2, 

62,2 

.60,6 

.33,2 

,40. 


2,45.2.52,2, 

0.6 





520 

0ATA62,2,60, 

2,59,4 

.28. 

2,40, 

2.0.2 

,52, 


2,52,2,0.4,64,2 





530 

DATA0,2.52,2 

,0.2.6 

4.2 . 

64,2, 

0.10, 

76,2 


.63,2,64,2,6 

3.2 





540 

DATA64,2,0.1 

2.63.2 

.64, 

2.63. 

2,64. 

2.63 


,2,64,2,0,12 

.63.2 





550 

DATA64,2,59, 

2,62.2 

,60 , 

2.57. 

4.33, 

2,40 


,2,0,2.33.2. 

48,2 





560 

DATAO.6,52,2 

,57.2, 

59,4 

.2,8.2 

.40,2 

.0,2 


.44,2,52,2.0 

1.6 





570 

DATA56 .2,59. 

2,60,4 

.33. 

2,40, 

2,0,2 

.45, 


2.52.2.0,5,6 

'4.2 





580 

DATA63,7,64. 

2,0.12 

.63. 

2.64. 

2.59, 

2,62 


.2,60,2,57,4 

1.33,2 





590 

DATA40 ,2 .0,2 

.45.2. 

48,2 

.0,6. 

52.2, 

57.2 


.59,4,28.2,40,2 





600 

DATA0,2,44,2 

.52,2, 

0.6 , 

60,2, 

59.2, 

57.6 


.33.6.0.6.0. 

6.1,1 





630 

DATAO.O.O.U, 

0,0,40 

, 1 40 

.0.0, 

40, 140,0, 


16.16,75 






640 

DATAO, 132.0, 

12,0,2 

,53. 

2,57. 

2,53, 

2,60 


.2.53.2.0.2. 

65,2 





645 

DATA41 ,2,64, 

1.62.1 

.45. 

2.60. 

1.62, 

1.41 


,2,60,1 ,58,1 

.48,2 





650 

DATA57 ,1 .58, 

1.41,2 

.57, 

1 ,55, 

1 


660 

DATA53.2.53. 

2,52,1 

.57. 

2,50, 

1.48. 

1 .60 


.2,50,1 .48.1 

.57,2. 

46,1 

.45,1 

.65,2 

.46. 

670 

DATA45.1 ,60, 

2.43.1 





680 

0ATA41 ,2,69, 

1.72,1 

.45. 

2.70, 

1 .72, 

1 .48 


.2,69,1 .72,1 

.45.2. 

70,1 

.72,1 

.53.2 


690 

DATA69,1 ,72, 

1,48,2 

,70, 

1.72, 

1 


700 

DATA57 ,1 ,65, 

1,60,1 

.69. 

1.58, 

1.67, 

1 ,60 


,1,69,1,57,1 

.65.1 . 

60 , 1 

.69,1 

.58,1 

.67, 

710 

DATA60,1 .69, 

1.57,1 

.65 , 

1.60, 

1.69. 

1 .58 


. 1 ,67,1 ,60,1 

.69,1 





720 

DATA53 .1,62, 

1 .57.1 

.65. 

1 .55. 

1.64, 

1 .57 


.1 ,65,1 .53,1 

.62,1 , 

57,1 

.65,1 

.55.1 

.64, 

7 30 

0ATA57.1 ,65, 

,1 .53.1 

.62. 

1 ,57. 

1 .65, 

1 .55 


, 1 ,64,1 ,57,1 

.65.1 





740 

DATA50.1 ,59, 

,2,53.1 

.52, 

1.55, 

2.53. 

1 .50 


.1 ,62.2.53.1 

.52,1 , 

59.2 

(.53.1 

.50,1 


750 

DATA65 ,2,53, 

,1.52,1 

.62, 

2.53. 

1 


760 

DATA47,2,67, 

,1,69,1 

.43. 

2.67. 

,1.65. 

1 , 48 


,2,64,1 ,65,1 

.43.2, 

64,1 

.62,1 



770 

DATA52,2,60, 

,1 .62,1 

.48. 

2.60, 

1.58, 

1 

780 

DATA53.1 .57, 

,2.55,1 

,53. 

1,62, 

,1 .52. 

1 .60 


. 1 ,50,1 .59,1 .52,1 ,60.1 .50,1 .59,1 
785 DAT A 98,1 ,57 , 1 , 97 . 1 . 55 . 1 , 98 , 1 , 57 , 1 , 97 
.1 ,55.1 .95.1 ,53.1 

790 DATA 9 3, 2, 52,1 , 53 , 1 , 98 . 1 , 52 , 1 . 97 . 1 . 50 
.1 ,95.1 .98.2,97,1 ,95,1 ,60,1 ,93.1 
795 DATA59,1 ,91 , 1 .60,2,93.1 ,91 , 1 ,52,2.90 

800 DATA 38,1 , 53 . 2 . 90 . 1 , 38 , 1 . 60 ,2 , 36 , 1 , 9 3 
,1,52,2.91,1.90.1,60,2.91.1,93,2,50. 
2 

805 DAT A 31 .2,59,2,29,8,36,8,60,8,1 , 1 , 1 ,1 
.1,1 

1797 REM---- — 

1798 REM SPAZIO PER INTESTAZIONE PROG. 

1799 REM---. - 

1 800 PRI NT" (CLR)l PURPLE )":P0KE53280 ,296: 
POKE53281 ,296 

1810 PRINT"{11 CUR.GIunCUR.DES)ESEMPIO 
DI UTILIZZO DEL PROG. (KVS ON)POLIM 
USIRVS OFF}" 

1830 FORT-OT039:LL$-LL$*"-" :NEXT 

1997 REM- 

1998 REM CARICA IL VET. "Q" 

, 1999 REM ■-- 

2000 DIMq(90,1 ):R-2t(1/l2):X«990/(29*2 
56*60):F0RT-5T090:HZ-(R*T)»16 .35 
' 2010 HH-INT(HZ/X) :HIt-HH/256:L0S-HH-(HIt 

• •256):Q(T,0)-HI*:Q(T,1 ) -LOS : NEXT : VX 

-13 

2020 FORT-OT015:POKE59296.T:NEXT 
I 2030 GOT03350 

2997 REM — 

2998 REM TRASFORMA I DATI IN MUSICA 

I 2999 REM-- 

1 3000 F0RT-1T015STEP7:F0RY-1T05:IFT+Y-90R 

,1 T*T-1 10RT*T-18THENNEXT 

t' 3007 READD:P0KE59272*T*T.D:NEXT:NEXT:REA 

DWA:READWB:READWC:READVP; A-0;B-0;C- 
0 

3010 V6-VP: A-A-1 : IFA>0THENV6-V6*VX:G0T03 
090 

3020 P0KE59276 .WAAND259:READD.A: IFD-OTHE 
I N3090 

3025 IFD-1THEN3210 

3030 POKE59272,Q(D,1 ) :P0KE59273.Q(D,0):P 
OKE59276 ,WA0R1 

3090 B-B-1 : IFB>0THENV6-V6*VX:GOTO3O70 
3050 POKE59283 .WBAND259;READ0 ,B: IFD-OTHE 
N3070 

3055 IFD-1THEN3210 

r! 3060 P0KE59279,Q(D,1 ) :P0KE59280.Q(D.0):P 

j 0KE59283.WB0R1 :V6-V6-VX 

3070 C-C-1 :IFC>0THENV6-V6*VX:C0T03200 
i\ 3080 POKE59290,WCAN0259;READD.C:IFD-OTHE 

I N3200 

' 3085 IFD-1THEN3210 

3090 P0KE59286.Q(D,1 ) :P0KE59287.Q(D,0):P 


no, basta mettere due 1 al 
posto della nota e del suo va- 
lore. La routine funziona nel 
sedente modo. 

Ogni voce è controllata da 
un contatore (AJB.C,). Nella 
linea 3010, “A" viene decre- 
mentato, e siccome questa è 
la prima volta, il suo valore 
diventerà -1. La condizione 
“IF" sarà falsa e il salto non 
viene effettuato. 

Nelle linee seguenti si spe- 
gne la voce 1 e vengono letti 
i valori delia nota e del tem- 
po che sono inseriti, rispet- 
tivamente, nei registri HI e 
LO tramite il vettore Q e nel 
contatore “A". 

Nella linea 3025 si controlla 
che il brano non debba ter- 
minare. La nuova nota viene 
fatta poi ripartire. La stessa 
cosa si ripete per altre due 
voci. 

Nella linea 3200 viene effet- 
tuato un ritardo che scandi- 
sce il tempo di ogni trenta- 
duesimo. Si ritorna poi a de- 
crementare il contatore “A"; 
questa volta la condizione 
“IF" è vera perché il contato- 
re è stato precedentemente 
caricato e non si avranno le 
operazioni di lettura. Lo 
stesso vale per le altre voci. 
La nota di ogni voce durerà 
per tanti trentaduesimi 
quanti ne sono caricati nel 
relativo contatore. Resta 
ora da vedere a cosa servono 
le variabili VP, V6, VX, 

“VP" contiene la durata di 
un ciclo (0 di un trentadue- 
simo), e viene caricata col 
1 &‘ dato del blocco. 

“V6" viene caricata con “VP" 
ogni volta che si ripete un 
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ciclo. 

Se un contatore è superiore 
allo 0, e^pertanto non vengo- 
no eseguite le operazioni di 
lettura, a “V6” viene aggiun- 
ta “VX” aumentando così il 
ritardo di un ciclo; questo 
serve a compensare la mag- 
gior velocità di un passaggio 
dovuta ad un minor numero 
di istruzioni BASIC. Nel caso 
si volessero usare un nume- 
ro minore di voci, basta ca- 
ricare all’inizio del brano 
una pausa nella o nelle voci 
che si vogliono escludere, 
lunga come l’intero brano. 


Tratto da 
“Bit” 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Novembre 


OKE54290,WCOR1 :V6-V6-ìVX 
3300 F0RT-0T0V6:NEXT:G0T03010 
3210 POKE5 *1276 ,WAAND25'I: POKE5 128 3 ,WBAND2 
59:P0KE5'I290,WCAND25'I 
3220 FORT-OTO200:NEXT: P0KE5'(276,0: POKES*! 
283 ,0: P0KE5*t290,0: RETURN 

3297 REM---*-.-. — 

3298 REM RESTORE NUM. DI LINEA IL 

3299 REM-- 

3300 A*.PEEK(1(3) :A1J-PEEK(44) 

3305 Q*>A1 *»256*Aj:B».PEEK(Qil) :B1 J.PEEKC 

Q *+1 ) 

3310 P*.PEEK((J**3)«256*PEEK(QJ+2):A*.A*- 
1 : IFA5K0THENA**255: Al %-A1 *«1 
3320 IFPJ-IL THEN P0KE65.A*:P0KE66,A1»:R 
ETURN 

3330 IFP*>ILTHENRESTORE: RETURN 
3340 AJ-BJ: Al J-BI J :G0T03305 

3350 REM 

3351 REM INIZIO PROGRAMMA UTENTE 

3352 REM-- — - 

3360 PRINT"{CLR)"LL$:PRINTTAB(17)"{RVS 0 

N }MENU ' IRVS OFF)" : PRINT" tCUR .GIU }"L 
L$ 

3370 PRINT"{CUR.GIU)(CUR. DESICI]". "THE E 
NTERTAINER (JOPLIN)" 

3380 PRINT" tCUR .GIU) 1CUR.DES)[2]" ."MINUE 
TTO (BACH)" 

3390 PRINT" {CUR .GIU) (CUR .DES) [3]" . "PEREL 
ISA (BEETHOVEN)" 

3400 PRINT" {CUR .GIU) (CUR .DES) [4]" , "INVEN 
ZIONE (BACH)" 

3410 PRINT" {CUR .GIU) {CUR .DES)[5]" " 

3420 PRINT"{CUR.GIU) {CUR.DES)[6]"."{SH S 
PO" 

3430 PRINT" {CUR .GIU) {CUR .DES) [7]" , "FINE" 
3440 PRINT"(2 CUR.GIU){2 CUR . DES ) SCEGLI ! 

3450 FORT-0T05:GETT$:NEXT 
3460 GETI$: IFI$-""THEN3460 
3470 IN«VAL(I$) : IFIN< 10RIN>7THEN3460 
3480 0-1 234+ (80»IN) :GOSUB4000 
3500 IFIN-1THENREST0RE: GOSUB3000:GOT0336 
0 

3510 IFIN-2THENIL-240:G0SUB3300:G0SUB300 
0:GOT03360 

3520 IFIN-3THENIL-350:GOSUB3300:GOSUB300 
0:G0T03360 

3530 IFIN.4THENIL-630:COSUB3300: G0SUB300 
0:GOT03360 

3560 IF IN.7THEMPRINT" {CLR )" : END 
3570 G0T03460 

4000 REM 

4001 REM REVERSE MARKER 

4002 REM— 

4010 IF Q<2024THENF0RT»0T026:M-PEEK(T*Q) 

: POKE(T+Q) , MOR 1 28 : NEXT : RETURN 
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